unit USplash;

interface

uses Forms, ShellAPI, StdCtrls, ExtCtrls, Graphics, Classes, Controls,
     Windows, Db, DBTables, Dialogs, SysUtils, jpeg, ComCtrls;


type
  TFrmSplash = class(TForm)
    lblMensagem       : TPanel;
    imgLogotipo       : TImage;
    lblEmpresa        : TLabel;
    lblEmailSuporte   : TLabel;
    lblVersao         : TLabel;
    procedure FormCreate             (Sender: TObject);
    procedure imgLogotipoClick       (Sender: TObject);
    procedure lblEmailSuporteClick   (Sender: TObject);
    procedure lblEmailSuporteDblClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;


var
  FrmSplash: TFrmSplash;


implementation

Uses UDMFAT, UUtils;

{$R *.DFM}


{---------------------------------------------------------------------------------------}
{ PROGRAMA : Método CREATE do Splash                        }
{ AUTOR :  Edinaldo G Silva             Data --> 21.08.2006      }
{ ALTERAÇÃO :  Ademário Ramos   Data --> 11.07.2014      }
{---------------------------------------------------------------------------------------}
procedure TFrmSplash.FormCreate(Sender: TObject);
  var
    ObjUtils: TUtils;
begin
  ObjUtils := TUtils.Create;
  lblVersao.Caption := ObjUtils.GetVersionNumberExe;
end;


procedure TFrmSplash.imgLogotipoClick(Sender: TObject);
begin
  lblEmailSuporte.OnDblClick(Self);
end;


//EGS - Abre o Outlook do HelpDesk da Camargo Rodrigues - 13.01.2007
procedure TFrmSplash.lblEmailSuporteClick(Sender: TObject);
begin
  ShellExecute(Handle,'open','OUTLOOK.EXE', nil, nil, SW_SHOWNORMAL);
end;

//Abre o Explorer e vai na pagina da Camargo Rodrigues - 21.08.2006
procedure TFrmSplash.lblEmailSuporteDblClick(Sender: TObject);
begin
  ShellExecute(Handle,'open','http://www.camargorodrigues.com.br', nil, nil, SW_SHOWNORMAL);
end;

end.
